МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Кафедра «Захист інформації»
Звіт
до лабораторної роботи № 2
ПОБУДОВА ГРАФІКІВ ФУНКЦІЙ ЗАСОБАМИ МОВИ ТУРБО-ПАСКАЛЬ
з курсу “ Комп’ютерна графіка”
Мета роботи - набути практичних навиків в складанні програм для побудови графіків функ-цій за допомогою засобів мови Турбо Паскаль.
КОРОТКІ ТЕОРЕТИЧНІ ДАНІ
Графіки, гістограми, діаграми тощо призначені для візуалізації (полегшення сприйняття людиною) числових результатів обробки інформації. При використанні комп’ютера в інженерних та наукових дослідженнях появі зображення на екрані монітора передують складні математичні розрахунки, які виконуються, як правило, в системі координат об’єкту дослідження. Така система координат називається реальною. Зображення, яке візуалізує на екрані результати розрахунків, формується в машинних координатах, характер яких визначається режимом роботи відеоадаптера.
Тому для адекватного відображення числових результатів на екрані необхідно для кожної прикладної задачі розробити чіткий алгоритм приведення реальних координат об’єкту дослідження до машинних координат. Зокрема, визначити відображення центру реальних координат на екрані в машинних координатах та функціональні залежності для розрахунку машинних координат.
Завдання:
21
x=[0;180]
h=0.5
Текст програми:
Program PKG2;
Uses Crt, Graph;
Var Gd, Gm :integer;
x0, y0, n, m :longint;
x1, xm, ky, kx, y1, ym, h : real;
temps:string;
everyCounter : integer;
Begin
clrscr;
Gd:=DETECT;
InitGraph(Gd, Gm, '');
x0:=GetMaxX div 2;
y0:=GetMaxY div 2;
line (1,y0,GetMaxX-2,y0); {visb X}
line (x0,1,x0,GetMaxY-2); {visb Y}
line (x0,2,x0-10,30);
line (x0,2,x0+10,30); {strilka Y}
OutTextXY (x0+15,2,'Y');
line (getmaxx,y0,getmaxX-30,y0-10);
line (getmaxx,y0,getmaxX-30,y0+10); {strilka X}
OutTextXY (getmaxx-10,y0+15,'X');
h:=0.01;
x1:=1;
everyCounter := 0;
while x1<=21 do
begin
xm:=x1;
ym:=16*xm*xm*xm+sqrt(sqrt(xm*xm+1));
if y1<ym then ky:=((getmaxy div 2)-40) / ym;
x1:=xm+h;
y1:=ym;
if (everyCounter mod 100 = 0) then begin
SetTextStyle(DefaultFont, HorizDir, 0);
str(xm:4:0, temps);
OutTextXY(0, (everyCounter div 10)+10, temps);
str(ym:4:4, temps);
OutTextXY(50, (everyCounter div 10)+10, temps);
SetTextStyle(DefaultFont, VertDir, 0);
end;
Inc(everyCounter);
end;
kx:=(x0-40)/20;
SetTextStyle(DefaultFont, VertDir, 1);
n:=-20;
m:=0;
for n:=-20 to 20 do begin
line (round(40+kx*m),y0-5,round(40+kx*m),y0+5);
str(n, temps);
OutTextXY (round(40+kx*m),y0+10,temps);
m:=m+1;
end;
SetTextStyle(DefaultFont, HorizDir, 1);
n:=10000;
m:=0;
repeat
line (x0-5,round(y0-m*10000*ky),x0+5,round(y0-m*10000*ky));
line (x0-5,round(y0+m*10000*ky),x0+5,round(y0+m*10000*ky));
str(n, temps);
OutTextXY (x0-70,round(y0-(m+1)*10000*ky),temps);
str(-n, temps);
OutTextXY (x0-70,round(y0+(m+1)*10000*ky+5000*ky),temps);
n:=n+10000;
m:=m+1;
until n>ym;
x1:=1;
y1:=16*x1*x1*x1+sqrt(sqrt(x1*x1+1));
moveto(round(x1*x0/20+x0),round(y0-y1*ky));
while x1<=20 do
begin
xm:=x1;
ym:=16*xm*xm*xm+sqrt(sqrt(xm*xm+1));
lineto(round(xm*(x0-40)/20+x0),round(y0-ym*ky));
x1:=xm+h;
end;
Readln;
CloseGraph;
end.
Висновок: Я ознайомився з основними відомостями. Для свого варіанту навчився малювати графік функції у середовищі Турбо-Паскаль.
